RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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FFFFFFFFFE 000000 000000 BBBBBBBB 000000 TITTTTTTTT 
FFFFFEFFFE 000000 090000 BBBBBBBB 000000 TTTTTTTTTT 

FF 00 00 00 00 8B 00 TT 

FF 00 00 00 00 88 BB 00 00 TT 

FF 00 00 00 00 88 BB 00 00 TT 

FF 00 00 BB BB 00 00 TT 

FFFFFFFF 00 00 00 00 00 TT 

FFFFFFFF 00 00 00 00 00 00 TT 

FF 00 00 00 868 BB 00 00 TT 

FF 00 00 00 00 BB BB 00 00 TT 

FF 00 00 00 00 88 BB 00 00 TT cece 
FF 00 00 00 00 88 BB 00 00 TT eee 
FF 000000 000000 BBBBBBBB 000000 TT eee 
FF 000000 000000 BBBBBBBB 000000 TT eee 
LL III] SSSSSSSS 

LL IHI1I1 SSSSSSSS 

LL I SS 

LL I SS 

LL I SS 

LL I SS 

LL I 

LL I 

LL I SS 

LL I SS 

LL I SS 

LL I SS 

LLLLLLCLLL III] SSSSSSSS 

LLLLLLLLLL HII] SSSSSSSS 
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; | | 
1B-Sen-1964 00:31:07 yaxot1 BLie5@32_¥4.0-74 Page 4! 
MODULE foobot ( {pent = 'v04-000' 


BLISS32C, ADDRESSING_MODE (EXTERNAL = _LONG_RELATIVE 
NONEXTERNAL = LONG-RELATIVES J 


)s 
BEGIN 


PASSES SESISLISII ITI E ESET TTT TTT TTT TT Preece rei irri titi ici tii iii iii is. 


'@ 

' COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 

is ALL RIGHTS RESERVED. 

'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 

'® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 

'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
® 
® 
® 
® 
& 
z 
® 
® 
ie TRANSFERRED. . 
y 
® 
® 
® 
ae 
® 
*® 
® 
*® 
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WN. AW AAA AAI AIO POPOPOPONUPONUTUND 2 2 2 SSS 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
o eORPORAT ibn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i DIGITAL ASSUMES NO RESPONSIBILI{Y FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

i 
| eotngnenniedondneneenenensnednnsennnesorstposeententeniaconeenenesaseeneiees 
i 
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SEWN nonononononononononty) 3] 2 3 


SoOOOCOOOOSOOOOOOOOOOSOOSoOOOoOO 


030 

1 'e4 

033 | | 

, r ABSTRACT: 

§ Puts as many footnotes as possible at the bottom of the current page. 
O36 ENVIRONMENT: Transportable 

040 i AUTHOR: R.W. Friday CREATION DATE: November, 1981 


1 
i FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


K 9 
VO 900 Revision History 12288871382 99:50:35 RUNOFF SRES mS 4544 (28 
ZSBTT ‘Revision History’ 


Global eat of ar modules. syceres setee names, idents, 


copyright dates. Changed require files to BLISS library. 


4 | MODIFIED BY 

4 i 004 REROOO04 Ron Randal | 05-Apr-1983 

4 : For DSRPLUS: Added code for footnote numbering. 
003 Randall 07-Mar-1983 
i 
i 
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1 
9 
f T 1b-se =| :31: AX-11 Bliss-32 V4.0-74 e 3 
Vs 000 Module Level Declarations 1 ~$007} 382 90:35:95 RUNOFF .SRC etme a — (3). 
; 35 } RSBTTL "Module Level Declarations’ | 
: 5 i TABLE OF CONTENTS: | 
; $ 1 FORWARD ROUTINE | 
3 ¢' } , FOOBOT : NOVALUE; | 
: eg i INCLUDE FILES: | 
: 64 b2 1 LIBRARY "NXPORT:XPORT’; ! XPORT Library 
; @& 006 : REQUIRE "REQ:RNODEF'; ' RUNOFF variant definitions 
3 015 
: 3 0195 1 RIF DSRPLUS ZTHEN 
i 68 D196 | LIBRARY "REQ:DPLLIB"; ! DSRPLUS BLISS Library 
5 ' 
; 79 | LIBRARY *REQ:DSRLIB"; ! DSR BLISS Library 
. ' 
oe ar 
3 ‘ ' 
$ ie ' 1 : MACROS 
3 0 ' 
3 7 0 1 ! This macro makes certain that when blank Lines at the top or bottom 
; 44 0 ; : of a page are skipped change bars don't get output. 
[3 a 1 MACRO 
; 80 4 08 1 NO_BAR_SKIP (N) = 
; (OBI m™ 0209 1 BEGIN 
3 Hf m0210 1 LOCAL 
3 Be . } ; HOLD_BARS; 
>: BS - ig 1 HOLD_BARS = .TSF_BARS; 
; 4] m0214 1 TSF_BARS = FALSE; 
aes m0215 1 USKTPL (N); 
3 Py: 4 i$ 1 ie = .HOLD_BARS; 
3 4 ' : ; END %; 
: 31 8 i EXTERNAL REFERENCES: 
; 35 ? 1 EXTERNAL 
3 94 ; 1 FNCT FNCT_DEF INITION ' Footnote control table. 
> 95 1 FNESIZ : FN_ERT_SIZE_DEFINITION, 
; 96 6 1 HCT HCT_DEFINITION, 
3 9 5 ¥ PHAN : PHAR DEFINITION, 
3 38 § ' TSF : TSF _BEF INITION; 
; 100 3 1 EXTERNAL LITERAL 
; 101 1 RNF F WE ; 
3 ie 1 
eo 1 1 EXTERNAL ROUTINE 
$3) § 1 ERML, 
: 105 1 fF OOOU 
3 ' 7 : TPFFIT, 
> 108 1 USKIPL: 
3 198 $ 1 


$3 


"9 
a23ep-198e 19:50:95 — ERUnorFoSneSrooedT BL: Page i) 


1 
v Module Level Declarations 1 
GLOBAL ROUTINE foobot : NOVALUE = 


i FUNCTIONAL DESCRIPTION: 
See ABSTRACT, above. 
FORMAL PARAMETERS: None 
IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: None 


ROUTINE VAI.UE: 
COMPLETION CODES: None 


SIDE EFFECTS: None 


ts 4 


WR O OONOUES WN OOONOUE Wr 


BEGIN 


1 
See if there are any footnotes to be output. 


if (.FNCT_READY NEQ 0) 
THEN 


WR 9 OBNOUNE WN" COOONOUS 


See if these footnotes should be output now. 

Check for two cases: 

one in which there's a footnote that's too big to fit on the page, 

and the other in which there's no such error. 
| 
| 
| 


wind tab nie weenie oe ene ee Co eee 
w 


MEW ODNOULS WIN —"O0O®@ 


' 

i 

i 

i 

i 

i 

Skip over old footnotes, consider the first ready footnote. 
if .FNESIZ ceFNCT OLD] GTR 


7 (.PHAN_LLINES * .HCT_LAYOUTN - 

? CIF -HCT_HEADERS 

7 THEN ! 3 is title Line + 2 blank Lines. 
7 3+ (IF .HCT_SUBTITLE THEN 1 ELSE 0) 

i ELSE 0 


ZIF DSRPLUS XTHEN 
ert - (IF .FNCT NUMBERING THEN 1 ELSE 0) 


DONO VEWN — OOONOUES WO 0O@ uw 


THEN 


The first ready footnote is so Lengtty that it requires 
more space than allowed per page of the document, 
so force it out now and complain to the user. 


wr 


ka ak aaa a ak a nh ak ak a 8 ak at tk a a at at a a ss as st ts a a 2a 1 2 1 as SS LY 


SSCS OO COLES SEES 


AIAAPIPIPIPIDPINIWHE BEB EE ENE & UPD INPININIAINININININIGAPINININID) 8 9 8 9 we 


Se Se Se Oe Se Se Be Se Se Be Se Se Ge Se Se Se Se Ge Fe Ge Ge Fe Gy FH Se Se Se Se Ge Se Se Se Se Se Se Ge Se Se Se Se Se Ge Se Se Ge Se Ge Se Se Ge Ge Se Se Se Ge Ge we 


Faves 
meleal® (tet -_ 


wn 


oooUuT (1) ! Dump one footnote, namely the bad one. 


a 


Module Level Declarations 


WOOO OO OO OW WW WOW WO 0 NNN NINN NINO 
ANIMES HEELS PEE ES FINE WWIII nonononowt 


Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Ge Se Se Se oe 


SOoooooococo00o 
WARPOPNOPOPONINONOND 2 2 OOO 
—OOONOAMNE WN O OONOUS WI —-O0O@ 


WWAWW AA Nw 


i 


50 0 


iSoseo-1986 00:37:92 yancnt 8144-82 vé.g-742 


RUNOFF ..SRC JF OOBOT.BLI; 


95 END 
38 ELSE | 
38 i These footnotes are not too lengthy, so see if there is 
space at the bottom of the page to output them now. 
1 BEGIN 
§ LOCAL 
HOW_MANY_FIT; 
5 : 
Find out how many footnotes of the ready ones can fit. 


HOW _MANY_FIT = TPFFIT (); 
IF (.HOW_MANY_FIT NEQ 0) 
THEN 


There are some footnotes that will fit. Output them. 
BEGIN 

LOCAL 

HOLD_PAGING; 


HOLD_PAGING = .PHAN_PAGING; 
PHAN_PAGING = FALSE; 


; Position to proper location on page. 


NO_BAR_SKIP (TPFSKP (.HOW_MANY_FIT)); 
FOOOUT™ (.HOW_MANY FIT); ! Generate the footnotes now. 
PHAN. PAGING = -HOCD_PAGING; 


! End of routine FOOBOT 


E FOOBOT 

T \VO4-000\ 

RN FNCT, FNESIZ, HCT 
N PH 


* TSF, RNFFWE 
RN ERML. FOOOUT, TPFFIT 
XTRN TPFSKP, USKIPL 


-PSECT SCODES,NOWRT,2 


: : me: sone aENTRY FOOBOT Save R2,R3,R4,R5,R6,R7,R8 
8 G EF 9E $0 MOVAB FooduT. R7 
G EF 9€ 19 MOVAB HCT+ é R6 
0 ¢ EF 9 OVA PHANt4O, RS 
ft 1 34 BEQL 6$ 
00000006 EF D0 00026 MOVL -FNCT#12, RO 


10 
F T a -Se 4 AX-11 Bliss-32 V4.0-74 Page 

VOe~000 Module Level Declarations 12 =Sep- 138 99: 36; 3 RUNOFF .SRCJFOOBOT.BLI; . a8 
52 oc 5 66 C1 ADDL3 ARSE genes R2 3 74 ; 
9 Eg B6 £9 BLBC a@HCT : 0275 F 
g F 6 £9 BLBC auCTs 4,°1$ + 0277 ; 
1 0 A MOVL #1, R : ; 
ni He ye, : : 
51 £9 4) 3: ADDL2 i. R1 : 3 
1 00044 BRB : ; 
D4 46 3$ CLAL ni + 0275 ; 
53 - 004 4$ SUBL2 : : 
00000000GEF4O i cMPL isto R2 ; 0274 ; 
000000006 8F DD § PUSHL #RNFFWF + 0293 : 
000000006 EF 4 FB 00 8 CALLS #1, ERML : ; 
1 DD 0006 PUSHL + 0294 ; 
67 01 FB 0064 CALLS #1, FOOOUT : : 
04 00067 RET : : 
000000006 EF 0 FB 99 8 S$: CALLS #0, FIT : 0308 : 
3 00 F MOVL RO, NOU, Any FIT 3 3 
8 13 00072 6$ BEQL «87 + 0310 ; 
54 00 BS DO 00074 MOVL inate | HOLD_PAGING ; 0319 7 
00 B85 D4 00078 CLRL aH +40 ; 0320 ; 
50 68 DO 00078 MOVL Isr NRO + 0324 : 
52 7¢ =A 01 00 EF 007E EXTZ2V #0, #1 124(R0), HOLD_BARS : : 
7¢ =A 01 A 00084 BICB2 #1. 124(R0) : : 
3 DD 0088 PUSHL Hou. MANY FIT : ; 
LL PF : 
nese: 83 BB o008t me at 
006000006 Ef 01 FB 00093 CALLS #1, USKIPL : : 
0 68 00 Hb MOVL H 2 
7c =A 01 00 2¢ FO 0009D INSV -HOLD_BARS, #0, #1, 124(RO) : ; 
53 DD OO0A3 PUSHL HOW MANY FIT > 0325 ; 
67 01 FB 000A5 CALLS #1, 00 T : : 
00 B85 54 D0 O00AB MOVL | HOLD_PAGING, @PHAN+40 : 0326 $ 
04 OOOAC 7$: RET : 0331 ; 
; Routine Size: 173 bytes, Routine Base: $CODE$ + 0000 : 
: 205 0332 1 : 
: 206 O338 1 END ' End of module 3 
> 207 0334 0 ELUDOM : 
3 ame ytes ributes ; 
N Byt Attribut : 
: SCODES 173 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; 


PSECT SUMMARY 
| 
| 


10 
F T 1b-Sep=1 AX-11 Bliss-32 V4.0-74 
Vos 000 Module Level Declarations 12-388: 1382 99: +e 3 RUNOFF .SRCJFOOBOT.BLI; 
; Library Statistics 
; Rae pig SYEROLE secerese Pages Processing 
5 File Total ioaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBIXPORT.L32;1 252 :00.1 
; $5 Bt f RUNOFF .SRCIJDS Ri iB. L32;1 1348 28 $ 86 § :00.3 
3 COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL, ,OPTIMIZE)/LIS=LIS$:FOOBOT/OBJ=0BJ$:FOOBOT MSRC$:FOOBOT/UPDATE=(ENHS$:F OOBOT) 


; Size: 173 code + 0 data bytes 
; Run Time: 00:04.5 
Elapsed Time: a 11 14 
Lines/CPU Min: ate 
Caen Ao ade 13386 
meee Used: 51 pages 
Compilation Complete 


34] SH BT13A- SE ENT CORPOR 
VAX/VMS V4.0 N 
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